home *** CD-ROM | disk | FTP | other *** search
/ The Guided Tour of Multimedia (Second Edition) / The Guided Tour of Multimedia (Second Edition).iso / trials / director / evalcopy / director.z / NAVIGATR.DIR / 00456_Field_456.txt < prev    next >
Text File  |  1994-06-14  |  1KB  |  40 lines
  1. MECH ,  77
  2. --================================================================= 
  3. -- This handler manages the speed control. The mouse position
  4. -- is determined relative to the general height of the sprite
  5. -- and a cast (PICT) is selected for the sprite.
  6. -- The delay property var is set to a value of 0 - 7.
  7.  
  8. on mSetSpeed me
  9.   put the mouseV into vertPos
  10.   -- each cast member in this animation has a different height,
  11.   -- so I have experimented and I've found the following numbers
  12.   -- yeild the best results for this control
  13.   set  bottomRange = 290
  14.   set totalRange = 35
  15.   set delta = totalRange / 7
  16.   set rangeMark = (((vertPos - bottomRange) / delta))
  17.   set rangeMark = min(rangeMark,7)
  18.   if rangeMark < 0  then set rangeMark = 0
  19.   set newCast = (158 - rangeMark) 
  20.   
  21.   put the castNum of sprite 27 into currentCast
  22.   if currentCast > newCast then 
  23.     set fDelta = -1
  24.   else
  25.     set fDelta = 1
  26.   end if
  27.   repeat while currentCast <> newCast
  28.     set currentCast = currentCast + fDelta
  29.     set the castNum of sprite 27 = currentCast
  30.     updateStage
  31.   end repeat
  32.   
  33.   set mySpeed = rangeMark
  34.   set theDelay = mySpeed
  35.   set delayCounter = theDelay
  36. end mSetSpeed
  37.  
  38.  
  39.  
  40.